باوجودرعایت فارسی نویسی پرانتزهاجابجاشده دقت شود

private sub invertstr(s as string)

dim leng,i as integer

dim s,st,invertstring as string

leng=len(s)

for i=0 to leng-1

st=mid(s,leng-i,1)

invertstring=invertstring+st

next i

print invertstring

end sub

s=text1.text

call invertstr(s)

البته هنوزاین حل رادرمحیط برنامه تست نکرده ام

تابع آماده ای وجودداردکه درکتاب برنامه سازی 1فنی حرفه ای به آن اشاره شده به نام

StrReverseکه درواقع کدهای بالاشبیه سازی این تابع راانجام می دهد 

امادونمونه حل دیگه ازکتاب حل تمرین برنامه نویسی که درپست بعدی آن رامعرفی می کنم

()private sub command_click

A=Inputbox("")

 For i=1 to len(A)

s=mid(A,I,1)+s

next  i

print s

end sub

نمونه دیگر

Private sub command_click()

A=inputbox("")

for i=len(A)  to  1 step-1

s=s+mid(A,I,1)

next i

print s

end sub

نظرات شما عزیزان:

maedeh

ساعت20:01---27 دی 1394

[وب سایت] - [ایمیل]

خيييييييييييييييييلي بدردم خورد مررررسي عالي بود واسه من

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: